#/usr/bin/perl -w

use strict;
use warnings;
use utf8;
use DBI;
use vars qw($dbh);

return 2 if($dbh);

my $dsn = 'DBI:mysql:open_scriptures:127.0.0.1';
my ($id, $password);
$dbh = DBI->connect($dsn, "root", '');
$dbh->do('use `open_scriptures`;');
#This $dbh must be global

1;
